home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / CarribeanPoker.dxr / Internal_18_end textual.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  505 b   |  19 lines
  1. property pSprite, spriteNum
  2. global gBet
  3.  
  4. on beginSprite me
  5.   pSprite = sprite(spriteNum)
  6.   if gBet.pCreditBalance > 3 then
  7.     puppetSound(4, "win")
  8.     pSprite.member.text = "Credit Balance:" & "$" & string(gBet.pCreditBalance) & ".00"
  9.   else
  10.     if (gBet.pCreditBalance <= 3) and (gBet.pCreditBalance > 0) then
  11.       puppetSound(4, "lose")
  12.       pSprite.member.text = "not enough credits!"
  13.     else
  14.       puppetSound(4, "lose")
  15.       pSprite.member.text = "give it another try!"
  16.     end if
  17.   end if
  18. end
  19.